﻿'Project Name:      Encrypt and Decrypt
'Purpose:           This program takes 2 strings from the user. A 5 character password and
'                   a message that is to be encrypted based on that password. It then
'                   encat message and drypts thisplays it in another text box. It also
'                   takes encrypted messages and returns them to normal English.
'Created By:        Tyler Pentecost (Morl everywhere but YouTube, Morl8806 on YouTube) on April 26, 2009

Public Class frmEncryptAndDecrypt
    Dim encrypt As New Encrypter
    Private Sub cmdEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEncrypt.Click
        txtEncryptedMessage.Text = encrypt.Encrypt(txtPassword.Text, txtMessage.Text)
    End Sub

    Private Sub cmdDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDecrypt.Click
        txtMessage.Text = encrypt.Decrypt(txtPassword.Text, txtEncryptedMessage.Text)
    End Sub
End Class